From: Dmitry Antipov <dmantipov@yandex.ru>
Date: Fri, 13 Sep 2013 16:55:48 +0000 (+0400)
Subject: * frame.c (Fx_focus_frame) [HAVE_WINDOW_SYSTEM]: Fix last change.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~3223
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=97fc2468bd2cbce07205d1fc96f17220187a0f84;p=emacs.git

* frame.c (Fx_focus_frame) [HAVE_WINDOW_SYSTEM]: Fix last change.
---

diff --git a/src/frame.c b/src/frame.c
index 74e57f9b5f2..fde2a131548 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -1903,10 +1903,13 @@ See `redirect-frame-focus'.  */)
 
 DEFUN ("x-focus-frame", Fx_focus_frame, Sx_focus_frame, 1, 1, 0,
        doc: /* Set the input focus to FRAME.
-FRAME nil means use the selected frame.  */)
+FRAME nil means use the selected frame.
+If there is no window system support, this function does nothing.  */)
   (Lisp_Object frame)
 {
+#ifdef HAVE_WINDOW_SYSTEM
   x_focus_frame (decode_window_system_frame (frame));
+#endif
   return Qnil;
 }